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FACILITY: REMOTE 1/0 ACP 


ABSTRACT 
THIS MODULE PERFORMS INITIALIZATION FOR THE ACP. 


ENVIRONMENT: 
MODE = KERNEL 


v04-000 


roe 


16-SEP-1984 :09: AX/VMS Ma v04-00 
~oeei 138s 85:53:83 PREM ERCTREMGNY MaRS 
00 3 
ip : AUTHOR: SCOTT G. DAVIS, CREATION DATE: 06-JUL-79 
4] ; MODIFIED BY: 
§ 2g : V03-002 CwWwHS2380 CW Hobbs 18-Jan-1983 
44 ; Zero out the newly allocated. VCB to prevent access violations 
+4 o2 ; on random data. 
000 47: v03=001 KDM0002 Kathleen D. Morse 28-Jun-1982 
444 rt : Added $DYNDEF. 
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16-SEP-1984 :09: AX/VMS Macro v04-00 Page 
Gr eea1aRe BSie8:eg PARLVES Sacre Voss 0O ° 

1 

INCLUDE FILES: 

38 , SAQBDEF 

: SDYNDEF 

5 SPCBDEF 

38 REMDEF 

& SUCBDEF 

60 SVCBDEF 

es 

8¢ : MACROS: 

64 ; 

65 

88 : EQUATED SYMBOLS: 

68 ; 

8 

4 > OWN STORAGE: 

73 i .PSECT REM_PURE,NOWRT,NOEXE 

75 LKWSET_ADDR: : DESCRIPTOR FOR LOCKING IODONE IN WSET 

76 .LONG START_LOCK : START ADDRESS 

a4 LONG END_LOCK ; END ADDRESS 

a DEV_DESC: eASCID /RT/ ; For device name descriptor 
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-PSECT REM_INITIALIZE,NOWRT 


aa 


FUNCTIONAL DESCRIPTION: 


object types (for DECnet). 


4 
: 
88 
89 
0 
31 
98 
94 
95 
% 
97 
98 
99 
100 
0000 101 REMSINITIALIZE:: .WORD 0 
108 SLKWSET_S W“LKWSET_ADDR 
10 SCMKRNL~S B“STARTUP 
00 104 HALT 
105 
106 
0000 107 STARTUP: -WORD 0 
6D O16D'CF DE 108 MOVAL W*FATAL, (FP) 
0000'CF  00000000'GF  3¢ 110 MOVZ2WL G*SYS$GW_RJOBLIM, - 
111 w*REM$SGB_MAXL INKS 
50 O000°CF 00 118 MOVL § W*REMSGB"MAXLINKS,RO 
02 50 01 11 CMPL RO, #2 
09 «19 114 BLSS 10 
OOOOOOFE 8F 50 01 115 CMPL RO, #254 
05 «(15 116 BLEQ ©. 208 
10 90 117 10$:  MOVB  #REMSC_MAXLINKS,- 
0000'CF 118 W*REMS$GB_MAXLINKS 
0000'CF 96 0046 119 20$:  INCB  W*REMSGB"MAXLINKS 
004A 120 
004A 121; 
004A 138 > BUILD THE ACP QUEUE BLOCK(AQB) 
004A \§ $ 
51 1¢ 004A 124 MOVZBL M#AQB$C_LENGTH,R1 
00000000'GF 16 004 125 JSB G*E XE SALONONPAGED 
0D 50 0053 126 BLBS — RO 
0056 127 SEXIT_S #SS$_INSFMEM 
0063 128 308: 
0063 129 
006 130 ; 
06 1; FILL IN THE AQB 
08 A2 1C BO 0063 1 : MOVW #AQBSC_LENGTH,AQBSW_SIZ 
OA A 90 0067 134 MOVB  $S*#DYNSC_AQB,AQBS$B_TYPE 
D0 068 135 MOVL  R2,AQBSL-ACPOFL (Red 
04 A D0 “ 136 MOVL 2, AQBS$L~ACPOBL (Re) 
0B A2 «94 007 ; CLRB © AQB$B_MNTCNT(R2) 
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REMSINITIALIZE = INITIALIZE THE VIRTUAL 1/0 ACP 


This module does the following initialization: 


1. Allocates an AQB so REMACP can get IRP's from drivers 
2. ‘Mounts’’ all virtual devices - creates VCB's, wires the 
AQB to the VCB, and wires the VCB's 


to the template UCB 


3. Makes up tables describing the remote devices and the related 


Note that there is expected to be a template UCB for each q 
virtual/remote device type which will be cloned whenever one is needed. 


oint . 
into working set 
FOREV 


ACP entr 


ENTRY POINT 
SET UP FOR EXCEPTIONS 


; Obtain sysgen parameter for max 
; number of 
; Check range for 2 to 


inks to evagers 


Not enough 
Too large? 
Ok 


Use constant 
thats wired in 
Make it the number of terminal Links 


Length of AQB 

Get a chunk of storage 
If LBS successful allocation 
Exit with status 


R2) ; Record size of AQB 
2) ; Note type of block 
Set queue forward Link 
Set gueue back Link 
Initialize mount count 
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1 6 
vou~0 SrSEp=198¢ 00:53:58 EREMeSRCIREMINI mans? = 88" cy 


172 ; LINK THE AQB INTO THE AQB LIST 
a ee 
it 38 7 126 BSBW pte a AQB 5 y in the AQB 
15 Ag g 07 14 MOVB #AQBSK_REM, eonse ACPTYPE(R ) ; Mark the ACP type 
0000'CF 8 00 143 138 MOVL R8, W*REMS$GL_0 HEAD ; Save the AQB header eaeress 
3 108 : Determine driver cidecieahien 
51 0008'CF 43 081 148 MOVAQ W*DEV_DESC,R ; Set up device name descriptor 
FF77* 30 0086 149 BSBW = REMSF IND ut : Find the associated UCB 
3A 9 E9 989 150 BLBC RD. 40$ ;6O ; If LBC device not found 
0000' CF 1 00 ¢ 151 MOVL = R1 URERSCE WEMPLATE : Save the UCB template address 
>. 8 091 13 MOVL ; Set up to allocate vCB 
009C 0 0094 15 BSBW REMSALLOC_VCB ; Allocate a VCB for this device 
2¢ 50 =6—€9) =— (0097 154 BLBC RO,40$ 360_ AWAY ; If LBC error 
boon 186 
QO9A 157 ; Obtain ate space for all the vectors and build the pointers 
ow. iat 
54 QO000000'°EF 9A OO09A 160 MOVZBL RERSGE MAXLINKS ; The maximum Links 
0000'CF 54 7A OOA1 161 EMUL w* REMSGL_ veesize, - : Obtain the total size of vectors 
55 OQOOOO1FF 8F 00A6 196 asi ; rounded up by a page 
55 00000200 8F C6 OQOA 16 DIvL2 #512. Re ; Make number of pages 
55 6 008 164 INCL RS ; Just to make sure 
0085 165 SEXPREG_S - ; Obtain the space 
0085 166 PAGCNT = R5,- ; Number of pages 
0085 167 RETADR = W*REMSGL -UCBVEC ; Return address here 
67 E9 O0C6 168 40$: BLBC RO, GO_AWAY ; Not available or something 
53 OQOO00'CF DO O0C9 169 MOVL W*REMSGL_UCBVEC, R3 ; Obtain address of space 
52  OO00'CF ODE 494 170 MOVAL W*REMSGT VECTBL, ; Control vector 
00 B2 53 00 00D 171 50$: MOVL R3, a(R2y ; Store the address in the pointer 
2 04 A2 Ce 00D7 \7¢ SUBL 4(R2), a(R2)+ ; Back up by the width of entry 
51 54 82 C5 O0DB 17 MULL (R2)+, R4, RI 3; Make siee of this vector 
5351 «CO sCOODF = s17% ADDL2 R11, RS : Point beyond this vector 
a ee | eae 
; e 
Oooo'cF 53 02 g QO0E6 177 SUBL3 #2, R3,- 3 Cheenel was last. Point this to 
OOEC 178 W*REMSGL_REJ_CHAN ; Reject channel address 
OOEC 179 
OOEC 180 
Bore 182 
Mita 188 3; Allocate space for receive buffers 
Boreas 
Beet : § : R4 = maxlinks 
52 Q00000000'°GF 3 GOee 188 MOVZWL lor sey Y RAKQUF »R2 ; Max 1/0 siz 
5 ono Shooodsoo gf fe $e Mp EM HABA RIS geen daar 
ef D 1 ; 191 INCL 4 3 i B up. dy [ case 
53 OO00'CF OD 105 135 nov. WOREMSGL _RBUF VEC ,R3 ; This is where to put the count 
83 D 10A 19 TSTL 3 Advance to the first real spot 
10¢ 194 SEXPREG. S PAGCNT= R5- 3; No. of pages 
010C 3=—«:195 RETADR= (R3) 3; Where to return (2 Longwords needed) 


J 6 
vO4-000 Bree b=1984 09:53:58 PREM VERCIREMINY MARS we hh 
” be R Sie 199 BRB ee ; bo By te set up address vector 
65 S2 635 C1 61 198 — ADDLS = (R3)+,R2,(R3) ; Compute next address 
F954 OFS 0 4 a} 23 SOBGTR 4,608 : Loop 
81 q 08 Initialize the transport mechanism, e.g., DECnet 
FED6" 30 0127 05 BSBwW REMSXPORT_START ; Do whatever is necessary 
03 50 =€9 4 5 36 : BLBC RO,GO_AWAY ; If LBC couldn't get going 
: o3 ; NOW TRY TO PERFORM SOME OPERATION 
FEDO’ 31 oi p 10 ae away or REMSMAIN ; TRY TO DEQUEUE A REQUEST - WILL HIBERNATE 
FECD' 31 0130 | Eee BRW REM$GO_AWAY ; Clean up everything and say goodbye 
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REMSALLOC_VCB = This routine allocates a VCB and hooks everything together 
INPUTS: 
R5 = UCB address 
OUTPUTS: 
RO - LBC => error; LBS => OK 
SIDE EFFECTS 
VCB is hooked to UCB 


AQB is hooked to VCB 
AQB mount count is set to 1 


+ 
+ 
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REMSALLOC_VCB:: 
: Now allocate a VCB and mark the device mounted 


EC 9A MOVZBL #VCBSC_LENGTH,R1 — : Get length of block 
00000000' 16 JSB G*EXESALONONPAGED ; Allocate the storage 
2c E9 BLBC Ro® 10$ ; If LBC couldn't al cate 


PUSHR we WcRO, R1,R2,R3,R4,R5> : pretest registers from the movc5 


62 OOEC BF 00 6€E MOVCS #0, 0, afvcase LENGTH, (R2) ; Zero the newly allocated VCB 


men TnNONOAT 
nN 
o 


8 
G 
5 
3 
3 BA POPR ori R Restore the registers 
OA A2 11 90 MOVB Sapo YNée.V vee. Weese. Type (R2) ; Set structure type 
08 A2 EC 8 98 MOVZBW #VCBSC LENGTH vCBSO_ SIZE(R2) ; Set size of VC 
OC A2 QO B0 MOVW #1, VCBSW_TRANS(R2) ; Set the traditional ACP idle count 
4C A B4 CLRW VCB$W_MCOUNT (R2) ; No terminals mounted yet. 
50 OO00'CF 00 MOVL W*REMSGL AD ,RO ; Get AQB address 
0B AO 96 INCB AQBSB_MNTCAT(R 05 ; Bump the mount count | 
10 A2 80 «9 MOVAB (RO) +, VCBSL_AQB(R2) ; Link AQB to VCB and set success 
34 AS 52. 00 MOVL R2,UCB$L_VCB(RS) ; Link VCB to UCB 
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Ok kh hh hh hh 
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VV BBS BS ES EES BAAN WNWININIAIPPPONININIPININYN SS OS Os 
WR O OO NAUES WN 0 OONAU EWN 0 OD NAOUE WN OC OONOUNS 


RSB ; Done 


SESE ABR Wanna, GBs 


wt 


8 3 
160 3° : COME HERE IF THERE ANY EXCEPTIONS 
0000 016D 3g FATAL: .WORD 0 
16 60 BUG_ CHECK FATALEXCPT, FATAL 
17 6 
a3 88 .END —- REMSINITIALIZE 
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REMINI 
Symbol table 


$$T 
AQBSB_ACPTYPE 


AQBSW_ SIZE 
BUGS POLALERCPT 
DEV_BES 


DYNSC a 
DYNSC"VCB 


END_LOCK 
EXE SALONONPAGED 
FATAL 


GO_AWAY 
LOC Sou. MAXBUF 


GL _UCBVEC 
REMSGL_ mt 
REM$GO_AWA 
REMSGT_ VECTBL 


REMSINTTIAL 1ZE 
REMSL INK_AQB 
REMSMAIN 


REMSXPORT_ START 
SS$_INSFMEM 
STARTUP 
START_LOCK 
SVSSCAKRNL 
SYSSEXIT 
SYSSEXPREG 
SYS$GW_RJOBLIM 
SYSSLKOQSET 
UCBSL_VCB 
vCB$B_ TYPE 
VEBSC™ “LENGTH 
VCBSL “AQ B 
VCBSUT MCOUNT 
VCBSw_ SIZE 
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00000002 
00000001 
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reerrene 
eeaeeekae 
reeeeene 
geaerkene 
teaeaenenee 
teerearre 
00000000 
gereenee 
gekerene 
eereenee 
grekeeee 
0000001E 
rerrenree 
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977 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:REMINI/OBJ=OBJ$:REMIN] MSRC$:REMINI/UPDATE=(ENHS:REMINI) EXECML$/LIB+LIB$:REM/LIB 


REMINI 16-SEP-1984 :09: AX/VMS Macro 
Psect synopsis 828E p= 1 b8e 93:93:88 REM. SRCJREMIN 
see oe seeeeeeeeeen} 
! Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
ABS 00000000 <( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
SABSS 00000000 <¢ 0.) O1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE R 
REM_PURE 446 EY . 18.) @2 ¢ -) NOPIC USR CON REL LCL NOSHR NOEXE- RD 
REM_INITIALIZE 00000175 (¢ 371.) 03 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD 
Se Oe Sem Oe EE Be ee ew wwe mae te 
: Performance indicators ! 
een ee ae ee nw ewes woe eco me + 
Phase Page faults CPU Time Elapsed Time 
Initialization 43 00:00:00.07 00:00:00.52 
Command processing 173 00:00:00.72 00:00:02.38 
Pass 1 280 00:00:07.98 00:00:17.73 
Symbol table sort 0 es ET bs Sy eed 
Pass 2 66 00:00:01.52 00:00:03.79 
Symbol table output 8 00:00:00.08 00:00:00.08 
Psect synopsis output 5 00:00:00.03 00:00:00.03 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 578 00:00:11.66 00:00:26.91 
The working set Limit was 1200 pages. : : 
44377 bytes (87 pages) of virtual memory were used to buffer the intermediate code. 
There were 50 pages of symbol table space allocated to hold 877 non-local and 8 local symbols. 
263 source Lines were read in Pass 1, producing 16 object records in Pass 2 
20 pages of virtual memory were used to define 19 macros. 
a a ee Se TY 
! Macro Library statistics ! 
Macro library name Macros defined 
-$255$DUA28: CREM.OBJJREM.MLB; 1 1 
_5255$DUA28:CSYS.OBJJLIB.MLB; 1 6 
$255$DUA28: CSYSLIBJSTARLET.MLB;2 9 
TOTALS (all Libraries) 16 
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